home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / s / s_color1 / schieber / hilfe1.gfa (.txt) < prev    next >
Encoding:
GFA-BASIC Atari  |  1996-09-18  |  1.7 KB  |  51 lines
  1. ' #############################################################################
  2. ' #                         æ  M O T E L S O F T  æ                           #
  3. ' #############################################################################
  4. '
  5. ' -----------------------------------------------------------------------------
  6. ' Arbeitstitel                > SCHIEBER HILFSPROGRAMM <
  7. ' -----------------------------------------------------------------------------
  8. '           CO.HARALD BREITMAIER  MARKUSPLATZ 3  7000 STUTTGART 1
  9. '                             TEL. 0711~640 22 87
  10. ' #############################################################################
  11. ' ----------> DATUM <------------           ---------->VERSION  1.0 <---------
  12. SETTIME "","27.06.88"
  13. ' #############################################################################
  14. '
  15. '
  16. '
  17. DIM n$(30)
  18. DIM ns$(30)
  19. FOR i%=1 TO 100
  20.   n$=SPACE$(15)
  21.   ns$=SPACE$(15)
  22. NEXT i%
  23. CLOSE #1
  24. OPEN "R",#1,"A:\SCHIEBER\EINS.RAD",30
  25. FIELD #1,15 AS n$,15 AS nn$
  26. FOR i%=1 TO 100
  27.   PUT #1,i%
  28. NEXT i%
  29. CLOSE #1
  30. '
  31. FOR i%=1 TO 100
  32.   n$=SPACE$(5)
  33. NEXT i%
  34. '
  35. '
  36. DIM hi$(12)
  37. DIM hi%(12)
  38. '
  39. FOR i%=1 TO 12
  40.   hi$(i%)="---------------"
  41. NEXT i%
  42. '
  43. OPEN "o",#1,"A:\SCHIEBER\HIGH"
  44. FOR i%=1 TO 12
  45.   PRINT #1,hi$(i%)
  46. NEXT i%
  47. FOR i%=1 TO 12
  48.   WRITE #1,hi%(i%)
  49. NEXT i%
  50. CLOSE #1
  51.